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Apple/Fest in Houston 


Although only about one-third the size of the Boston original 
(last May), it was still worth the trip. I met an orthopedic 
surgeon from Lille, France, who flew down Saturday from New 
York just for the show. Also a professor from Des Moines. 
There was not a lot to see that could be called NEW, but it was 
valuable to meet and get to know the people. I brought along 
my son David, almost ten now; he loved playing all the new 
games, and was a big help in the IAC booth. 


If you are in an area where there is no club of Apple owners, 
you might like to contact the International Apple Core at 908 
George St, Santa Clara, CA 95050. They have a start-up kit for 
new clubs that will help you organize your own club. 


Bill Morgan also came on Saturday. We have kidded Bill in the 
past that he looked a lot like Paul Lutus...well, three people 
were almost positive on Saturday! 


Another Christmas Special 


And this one is in December! Subscribers have until the end of 
1982 to get Laumer Research's FLASH Integer Basic Compiler at 
only $49. That is a Savings of nearly 38%! 


A Sight of Sound............-Herbert A. & Herbert L. McKinstry 


The Apple-Talker program that came on our disk for the S-C 
Assembler II Version 3.2 does some interesting things that go 
beyond what it was designed to do. When we tried it out we 
played a recorded message from our cassette recorder into the 
Apple memory and were amazed at the computer rendering of the 
original words. 


The actual quality of reproduction leaves something to be 
desired, so when someone said "Let's see what it sounds like," 
and another said "Let's hear what it looks like," we snooped 
around the program listing and found that what we were hearing 
was stored on Hi-Res graphics page one. We looked at it by 
typing in $C050:0 and $C057:0. The sight of the sound was not 
too loud, nor was it even obvious that what we were looking at 
was the sound that we had heard. 


If there were a pitch there, we should see some kind of 
pattern. We recorded a pitch, and saw that the sound was 
noisy. So then we entered some sense into memory by creating a 
repeating pattern, and listened to the patterns. We tried some 
like this: 


*2000:FF FF 00 00 N 2004<2000.27FFM 
*2800:FF 00 N 2802<2800.2FFFM 
*3000:FO N 3001<3000.37FFM 

*3800:CC N 3801<3800.3FFEM 


and 


*2000:FC OF CO 00 N 2004<2000.27FFM 
*2800:F8 3F 03 EO N 2804<2800.2FFFM 
*3000:AA N 3001<3000.37FFM 
*3800:CC N 3801<3800.3FFEM 


We liked what we saw and we saw what we heard, so our thanks to 
Bob Sander-Cederlof and to Victor Borge for his recognition of 
the sight of sound. 


Your Apple Can Talk...cccccccccvccccceceeeeBObD Sander-Cederlof 


Back in the summer of 1978, I spent two weeks in California 
with my kids, I visited a couple of computer stores with my 
brother, to show him what my Apple looked like. In one of 
them, I think the Byte Shop in Westminster on Beach Blvd., the 
proprietor mentioned in passing an astonishing event. He told 
me, "A high schooler was in here a few weeks ago with a program 
that produced speech out of the Apple speaker!" "Impossible," 
I mumbled. 


A few weeks later I heard rumors of a program by Bob Bishop 

which did indeed make the Apple talk. I think it was in the 

September meeting of the Dallas Apple Corps that I overheard 

his program running. From amazement to insight took only a few 

os almost RAN home to write a program to do the same 
ing! 
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S-C Macro Assembler (the best there 18!) ..ccccccscccevcvveseccecees 980.00 
S-C Macro Cross Assembler Modules 
6800/6801/6802 VOLES 1 ON sis ho oo SESE Oe ee CAS eR Ee oe eu 
6809 VOC 61 ON iia anda od aa SOLS 6 OR Wa EWE RO We HEE LENSER OER OLE OU 
z-80 VEL SON oe ooo tee Sa ee ae ew we Rae wh 6 Oe Wie aes Se UE oe eS DOL ROU 
68000 VOT BT OF so die Kh 6 DS Dk BRS WN ee SEG SEE WAGEWARE CORSO DOS OU 
Requires ownership of S-C Macro Assembler. 
Each disk includes regular and language card versions. 
Upgrade from Version 4.0 tO MACRO... ccccccscccvccccccccesssccesces sate 90 
Source code of Version 4.0 On diSk...ccccccrcccevccvevccesscvccces ee 999000 
Fully commented, easy to understand and modify to your own tastes. 


ES-CAPE: Extended S-C Applesoft Program Editor. ..cccccccevecevceees 900.00 


AAL Quarterly DISCS eos tod 6ibio ek OWES CUO EW ONO OE Re eee awe eeacn $15.00 
Each disk contains all the source code from three issues of “Apple 
Assembly Line", to save you lots of typing and testing time. 

QD#1: Oct-Dec 1980 QD#2: Jan-Mar 1981 QD#3: Apr-Jun 1981 
QD#4: Jul-Sep 1981 QD#5: Oct-Dec 1981 QD#6: Jan-Mar 1982 
QD#7: Apr-Jun 1982 QD#8: Jul-Sep 1982 QD#9: Oct-Dec 1982 


Double Precision Floating Point for AppleSOft... cc cccccccccccessee eS d0e00 
Provides 2l-digit precision for Applesoft programs. 
Includes sample Applesoft subroutines for standard math functions. 


FLASH! Integer BASIC Compiler (Laumer Research)......(regular $79) $49.00 
Special price to AAL readers only, until 12/31/82! 
Source Code for FLASH! Runtime Package... ..cccccccccccccccccvceseee 93 9c 00 


Super Disk Copy III (Sensible Software) .....eeeeeeee (reg. $30.00) $27.00 

Amper-Magic (Anthro-Digital) os vcccccsccesececsseess (KEG. $75.00) $67.50 

Quick-Trace (Anthro-Digital) ...cccscccccccccccvccceee (LEG. $50.00) $45.00 

Cross-Reference and Dis-Assembler (Rak-Ware) ..cccccccccccvccecccee es 945200 

Apple White Line Trace (Lone Star Industrial Computing) ........2.+-9$50.00 
(A unique learning tool) 


Blank Diskettes (with hub rings).......e2.e..e..e.package of 20 for $50.00 
Small 3-ring binder with 10 vinyl disk pages and diSk&........0+0+++$36.00 
Vinyl disk pages, 6"x8.5", hold one disk each.....ceeeeeeeeeel0 for $4.50 
Reload your own NEC PC-8023 ribbon cartridges.......«....each ribbon $5.00 
(Messy, but effective!) 
Diskette Mailing ProtectorsS....cccveccccvssevecsccceelL0-99: 40 cents each 
100 or more: 25 cents each 
Corrugated folder specially designed for mailing mini-floppy 
diskettes. Fits in standard 6x9-inch envelope. (Envelopes 
5-cents each, if you need then.) 


Ashby Shift-Key MOG ioe aia sa wea ES BE bln OWES DERE MSO LO SUR 

Paymar Lower-Case Adapter @eeeeeeseeeeeeeeeoeeensweeeeeeeoeseeseeeoeeeenvneon7seone ene @ $37 e 50 
For Apples before Revision 7 only 

Lower-Case Display Encoder ROM e@eeeoeeoeeeaeee4ensveeeeeoeeeeoeeeeewesvsveeveeeeoeeoeeees ee @ $25 e 00 
Works only Revision level 7 Apples. Replaces the encoder ROM. 


Books, Bocks, BOOKS... .ccccccccccecscscecceeseecompare our discount prices! 
"Beneath Apple DOS", Worth & Lechner....cccccccscesee (919.95) $18.00 
"Bag of Tricks", Worth & Lechner, with diskette......($39.95) $36.00 
"Apple Graphics & Arcade Game Design", Stanton.......($19.95) $18.00 
"Assembly Lines: The Book", Roger Wagner...ccccecceee ($19.95) $18.00 
"What's Where in the Apple", Second Edition.......++- ($24.95) $23.00 
"6502 Assembly Language Programming", Leventhal......($16.99) $16.00 
"6502 Subroutines", Leventhal....cccccccsccseccccccee (912-99) $12.00 
"MICRO on the Apple--1", includes diskette........2... ($24.95) $23.00 
“MICRO on the Apple--2", includes diskette.........2.+($24.95) $23.00 
"MICRO on the Apple--3", includes diskette........4++- ($24.95) $23.00 


*** S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 *** 
sia! (214) 324-2050 eet 
*** We take Master Charge, VISA and American Express *** 
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A month or two later I handed out copies of the program and 
gave a talk on the subject of Speech synthesis and recognition, 
When Version 3.2 of the S-C Assembler was released, I included 
the same program aS an example. Then again on version 4.0 


Meanwhile, Bob Bishop released several neat tapes through 
Softape, including a talking calculator, "Apple Talker", and 
"Apple Listener", The latter program did some limited speech 
recognition through the cassette port, with no additional 
hardware. I bought the last two, and I still have the tape 
somewhere, but I have never loaded it. 


About two years later Muse Software started marketing a program 
on disk to evoke speech from the Apple. I believe they 
included some sort of "editor”™ to allow you to make your own 
programs talk. I never saw or heard it, so I don't know. 


As far as I know, the basic idea behind all of these programs 
is the same: approximate the waveform of spoken words by 
toggling the Apple speaker. You can hook a microphone up to 
the cassette input port and toggle the output speaker whenever 
the input port changes. Or you can record a message on tape, 
and "play® in into the Apple. 


My program samples the cassette input port about 6000 times per 
second. If the input byte is $80 or larger, I store a "1"; if 
less than $80, I store a "0". I pack eight bits in a byte, and 
store the bytes in a buffer from $4000 through S$5FFF. The 
buffer is 8192 bytes long, so that is 65536 samples or about 10 
seconds of stored sound. You could store more samples or less 
samples, according to your own needs, 


The playback loop looks at the stored bits at the same rate, 
and toggles the speaker whenever there is a change from 1 to 0 
or 0 to 1. The result is actually understandable, though 
somewhat scratchy. 


As the McKinstry's pointed out, my choice of buffer coincides 
with the Hi-Res Graphics page. In the copy of the program they 
have, I used $2000-3FFF, which is Hi-Res page one. Now I use 
S4000-5FFF, Hi-Res page two, so it will not erase the last half 
of the S-C Assembler when I test the program. Taking their 
suggestions to heart, I added the code to turn on the Hi-Res 
display during recording and playback, and to turn it off when 
finished. 


When looking at the display you need to bear in mind the 
complex way the bytes are arranged on the Hi-Res screen. For 
starters, the bits are backwards in each byte. And remember 
that only seven bits of each byte show up on the screen -- the 
8th bit shifts the other seven one half dot position. And the 
big confuser is the way the lines are arranged. (See Mike 
Laumer's article in the July ,1982 issue of AAL, page 15ff, for 
a discussion of the line arrangement.) 


I prepared some EXEC files which initialize the buffer to 
various patterns, including the ones the two Herberts 
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is Speeding up The Apple! 


The DOS Enhancer (TDE) 
works up to 500% faster than 
standard Apple DOS 3.3...$69.95 


TIRED OF WAITING... foryour programs to load or 
save? Then S&H’s TDE, licensed by Apple, is the 
answer. 


TDE program updates standard Apple DOS 33 disks — or creates 
copyable TDE disks — with TDE’s QuickDOS and Quick-load features 

TDE’s QuickDOS runs and saves BASIC and binary programs up to 5 
times faster’ and is completely compatible with standard Apple NOS 33 
programs. 

TDE “Quick-loads” the RAM card with FPBASIC/INTBASIC. QuickDOS or 
user program in 1 7 seconds at startup 

TDE “package” includes utility disk, training/support disk, step-by-step 
instruction manual, S&H'’s Supercat/menu, and multidrive “Quick-copy” 
program. 

TDE system requirements. 48K Apple }{ or ][-+ ROM/RAM card. DOS 33 
and one or more disk drives 


Here’s what the critics say: 


@John Mitchener of PEELINGS I! “The speed increase with TOE is 
awesome and |s probably worth the price of the program alone. without ail the 
other features AA rating.” 

“Te achieve speeds even faster than a hard-disk drive combine TDE with Axion’s 
320K Memory System 


Asa.'able ‘rom your dealer Mail Order: Send checks to S&H Software. 58 Van Orden Rd Hart:ngton Park NJ 07640 201-768-3144 


@ Val Golding. Editor of Call-A PPLE “(TDE) stands as a shining exam- 
ple of how utility and application programs take into account every possible sys- 
tem configuration.” 

@ Clark Congleton of The Apple Orchard: “The Quick-ltoad capabilities will 
make this package attractive to anyone who spends a lot of time at the 
keyboard “ 

@ Chuck Carpenter of INFOWORLD “Results ina disk that will boot — very 


fast — in any Apple system.” 


Amper-Sort/Merge (A-S/M II) 
works up to 1000% faster than even 
VisiCorp’s VisiFile program...$69.95 


A-S/M Ils the fastest “file clerk” you've ever met Of all the sort utilities 
developed to manage Apple || data files none does the job nearly so 
fast as A-S/M II! 

A-S/M II's new features include S&H’'s superfast VisiFile index sort 
(callable from within VisiFile for effortless use). an equally fast S&H random 
access file index sort. and parameter file editing. 

A-S/M tI can sort/merge from one to five unsorted files into a single file of 
up to 125K In size per disk. 

A-S/M II's “package™ ‘ncludes utility disk. training disk, step-by-step 
instruction manual. and S&H's new Supercat/menu 

A-S/M II's system requirements 48K Apple ][ with ROM or RAM card or 
48K Apple |[+ with DOS 33 and Disk II 


S&H 


Dealer inquiries invited a ae Soravare 


Apple »s a registered trademark of Appte Computer inc 


Credit Cards: Phone Cybertronics Intemational at 212-532-3089 
(Overseas Airmail Add $3 00 postage and handling ) 
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suggested. (It is amazing how handy it is to be able to 
create/modify little text files like these using the editor in 
the S-C Macro Assembler!) 


Sound #l 


$4000:FF FF 00 00 N 4004<4000.47FFM 
$4800:FF 00 N 4802<4800.4FFFM 
$5000:FO N 5001<5000.57FFM 

$5800:CC N 5801<5800.5FFEM 


Sound #2 


$5800:CC N 5801<5800.5FFEM 
$5000:AA N 5001<5000.57FEM 
$4800:F8 3F 03 EO N 4804<4800.4FFCM 
$4000:FC OF CO 00 N 4004<4000.47FCM 


Sound #3 


$4000:00 01 03 07 OF 1F 3F 7F FF FE FC F8 FO EO CO 80 
$4010<4000.5FEFM 


Sound #4 


$4000:00 FF 00 00 FF FF 00 00 OO OO FF FF FF FF 
S400E<4000.5FFFM 


Sound #5 


$4000:00 88 00 00 88 88 00 00 00 00 88 88 88 88 
S400E<4000 .5FFFM 


To play back one of the sound above, simple EXEC or type in the 
monitor commands, and then “MGO TALK". 


Looking at the program which follows, you find three main 
routines. ECHO (lines 1180-1300) samples the cassette port 
about 6000 times per second; if it has changed, the speaker is 
toggled. After each toggle the keyboard strobe is examined, so 
that typing any key can stop the program and return to the 
caller. 


RECORD (lines 1560-1710) stores 65536 samples in the buffer. 
TALK (lines 1750-1950) play back the buffer contents. You can 
play with the sample rate and playback rate by modifying the 
constant 30 in lines 1590 and 1790. It is amusing to play back 
a message faster or slower than it was recorded. 


Both RECORD and TALK use a monitor subroutine called NXTA to 
control the loop. This is the same subroutine used by the 
monitor memory display and memory move commands. NXTA tests 
the current value of A1L,A1H ($3C,$3D) againsc A2L,A2H 
($3E,$3F), and sets carry if Al is greater than or equal to A2, 
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Then it increments Al. 


I tried various schemes for packing the bits in the buffer, to 
save space for more speech. None of them were effective enough 
to bother with, but you might run on to one that is. I also 
experimented with isolating words and individual phonemes, and 
with trying to filter out the scratchiness. I was not 
satisfied with any of my results. If you are successful, I 
would like to hear about it. 


[ A later note: I just received Dec-82 Creative Computing, and 
there are reviews of several speech synthesis systems. One, 
called "Software Automatic Mouth (SAM)", iS claimed to be a 
"high quality speech synthesizer created entirely in software." 
SAM costs $125 ($99 from Huntington Computing from now until 
the end of the year). In spite of the claim, it is not 
entirely software. There is also a small board containing a 
digital-to-analog converter (DAC), an audio amplifier, and a 
volume control. You can hook it up to the speaker in the 
Apple, or supply an external speaker. The ad claims it enables 
you to add speech to your programs with ease, but bear in mind 
that the software takes 9K of RAM, and 6K more if you want to 
automatically translate straight English text to speech. ] 


DISASM (Version 2.2) $30.00 
Use DISASM, the intelligent disasseabler, to convert 6502 machine code into meaningful, symbolic source. 
i It creates a text file which is directly compatable with DOS ToolKit, LISA and S-C (both 4.0 & Macro) 
Assemblers. Use DISASM to customize existing machine language programs to your own needs or just to see 
how they work. DISASH handies multiple data tables, invalid op codes and displaced object code (the 
program being disassembled doesn’t have to reside in the memory space in which it executes). DISAS lets 
you even substitute MEANINGFUL labels of your own choice (100 commonly used Monitor & Pg Zero names 
included in Source form to get you rolling). The address-based cross reference table option results in 
either a selective or camplete cross reference (to either screen or printer). Page Zero and External 
references are listed separately in numeric order. The cross reference table provides as much insight 
| into the inner workings of machine language programs as the disassembly itself. DISASH has proven to be 
an invaluable aid for both the novice and expert alike. 


Utilities For Your S-C Assembler (4.0) 
SC.6SR: A Global Search and Replace Eliminates Tedious Manual Renaming Of Labels.......cscoee+s 820.00 
SC.XREF: A Linenumber-Based Global Cross Reference Table For Complete Source Docunentation......$20.00 
SC.TAB: Tabulates Source Files Into Neat, Readable Form. Encourages Fast, Free-Format Entry....$15.00 
SC UTILITY PAK: Includes All Three Utilities Described Above (You Save $10.00). ..cssccscccceesss845.00 


All of the above programs are written entriely in machine language and are provided 
on a standard 3.3 DOS formatted diskette. 


Avoid A $3.00 Shipping/Handl ing Charge By Mailing Full Payment With Order 
RAK -~-WA RE 


41 Ralph Road 
West Orange NJ 07052 


anand SAY YOU SAW IT IN “APPLE ASSEMBLY LINE’! anus 
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1000) Sfsetecedeeresceseescne ee est cece 
1910 7 APPLE-TALKER FROM S-C SOFTWARE CORP 
FCBA- 1030 MON.NXTA .EQ $FCBA BUMP AND TEST Al 
C060- 1050 CASSETTE .EQ $C060 CASSETTE INPUT LEVEL 
C030- 1060 SPEAKER .EQ $C030 SPEAKER OUTPUT 
C010- 1070 STROBE «EQ $0010 
C000- 1060 KEYBOARD .EQ $C000 
002F- 1100 LAST .EQ $2F LAST CASSETTE INPUT LEVEL 
003C- 1110 AIL -EQ $3C MONITOR A1L, A1H, A2L, A2H 
0800- 00 40 1130 BUFFER .DA $4000 FWA OF BUFFER 
0802- FF 5F 1180 : “DA $5FFF LWA OF BUFFER 
1160 # ECHO CASSETTE THRU SPEAKER 
O804- AO 1E 1180 ECHO LDY #30 150 USEC DELAY 
tt aan erst Se 
td oe AD 60 CO 1210 LDA CASSETTE 
Ope. 1a eh (tBS0 BPL ECHO coco ee 
ae ne is 
O814- AD 30 CO 1260 LDA SPEAKER TOGGLE SPEAKER 
0817- AD 00 CO 1270 LDA KEYBOARD 
O81A- 10 E8 1280 BPL ECHO 
081C- 8D 10 CO 1290 STA STROBE 
O81F- 60 1300 : RTS 
1320 # SET UP BUFFER ADDRESSES 
0820- A2 03 1380 SETUP LDX #3 
0822- BD 00 08 1330 1 LDA BUFFER ,X 
0825- 95 3C «1360 STA A1L,X 
0827- CA 1370 DEX 
Sake ab or =. 1306 STX LAST 
082C- AD 50 CO 1880 LDA $C050 + SELECT HGR2 FOR VIEWING 
O82F- AD 52 CO 1410 LDA $C052 
0832- AD 55 CO 1420 LDA $C055 
08 35- AD 57 CO 1430 LDA $C057 
0838- 60 14H0 ; RTS 
1460 # RESTORE NORMAL SCREEN AND EXIT 
0839- AD 51 CO 1400 FINISH LDA C051 
083C- AD 53 CO 1490 LDA $C05 
O83F- AD 54 CO 1500 LDA $C05 
O842- AD 56 CO 1510 LDA $C056 
0845- 60 1520 : RTS 
1540 # STORE SPEECH IN BUFFER 
0846- 20 20 08 1560 RECORD JSR SETUP SET UP BUFFER ADDRESSES 
O849- A2 08 1570 1 LDX #8 EIGHT BITS 
OBB ug - 1 0 : PHA a5 PUSH BYTE WE ARE FILLING 
OBLE- 88 a 1860 3 DEY : 150 USEC DELAY 
0851= AD 60 CO 1620 LDA CASSETTE READ CASSETTE LEVEL 
0851~ OA 1630 ASL LEVEL INTO CARRY BIT 
0856 - 2h 1650 ROL MERGE LEVEL INTO BYTE 
0858- DO F1 1670 BNE .2 BYTE NOT FULL YET 
O85A- 81 3C 1680 STA (A1L,X) STORE NEXT WORD IN BUFFER 
oB5C~ 20 BA FC 1690 JSR MON .AXTA see BUMP & TEST POINTER 
0861- fe 39 08 1710 JMP FINISH 
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1720 #---------~~----- ~~~ -- 
1730 : PLAYBACK SPEECH FROM BUFFER 
O864- 20 20 08 1750 TALK JSR SETUP SET UP BUFFER ADDRESSES 
0867- A2 00 1760 .1 LDX #0 
0869=- A1 3C 1770 LDA (A1L,X) |GET NEXT WORD FROM BUFFER 
O86B- A2 08 1780 LDX #8 EIGHT BITS 
O86D= AO 1E 1730 -2 LDY #30 
O86F- 88 1800 .3 DEY 150 USEC DELAY 
0870=- DO FD 1810 BNE .3 
0872- 45 2F 1820 EOR LAST TEST IF LEVEL CHANGED 
0874- 10 13 1830 BPL . NO 
0876— 45 2F 1840 EOR LAST YES, RESTORE (A) 
0878- 85 2F 1850 STA LAST UPDATE LEVEL 
O87A- AC 30 CO 1860 LDY SPEAKER TOGGLE SPEAKER 
O87D—- OA 1870 4 ASL 
O87E=- CA 1880 DEX 
O87F- DO EC 1890 BNE .2 
0881- 20 BA FC 1900 JSR MON.NXTA BUMP & TEST POINTER 
O884- 90 E1 1910 BCC .1 NOT THRU 
0886—- 4C 39 08 1920 JMP FINISH 
0889- 45 2 1330 r EOR LAST RESTORE (A) 
O88B~- 4C 8E 08 1940 JMP .6 EVEN OUT TIMING 
O88E- 4C 7D 08 1950 . JMP .4 


Speaking Of Speech... . cc ccccccccccvvcsscccceccccceeeeBill Morgan 


Just thought I'd tell you a little about the way I played 
around with a speech program like Bob's. I couldn't find the 
disk with the exact code, but here's what I remember about it. 
I wanted a brief Applesoft program which would say the numbers 
0 through 9 when a number key was pressed. 


To do this, first record your voice on tape, reciting the ten 
numbers. Then play the tape into your Apple, using the RECORD 
routine in Bob's program. Now, by using the system monitor to 
examine memory, it's easy to scan through the buffer and see 
where each word begins and ends. The gaps between words will 
be long stretches of "00 ... 00", with a few stray bytes of 
noise along the way. Words will be stretches of random-looking 
values. It's interesting to see the difference between a word 
like "two", which starts abruptly and trails off, and one like 
"eight", which starts more slowly and ends suddenly. 


Now you can use the monitor move command to remove the gaps 
between words. Move the data for "one" to the very beginning 
of the buffer, and note its start and end addresses. Then move 
“two” down to the space just after “one”, and note the 
addresses. Carrying on like this, you can compress the number 
data into about half the space of the original recording. 


Assemble the playback portion of Bob's program at $300. All 
you should need is lines 1760-1950 (plus the needed .EQ's), 
with an RTS substituted for the JMP FINISH at line 1920. To 
say a number, all your Applesoft program has to do is get the 
Starting and ending addresses of a word from an array, POKE the 
addresses into locations 60-63, and CALL 768. 
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Now, from the programming experts at $.D.S., 
an easy-to-use way of putting the POWER 
and SPEED of machine language routines in 
YOUR OWN APPLESOFT PROGRAMS! 


ROUTINE MACHINE does all the work for you — 
no knowledge of machine language pro- 
gramming, whatsoever, is required. Simply 
choose the routine you need from an ever- 
growing library, and Routine Machine will 
effortlessly put them in your program, and 
all done transparently! No need to be aware 
of or bother with BLOAD’s, HIMEM:, efc. 


Best of all, with just this starter package, you'll 
have the routines to put High Resolution 
graphics and sound in your programs im- 
mediately! Also included is a versatile print 
using module to banish the “decimal point 
demons” forever! To round out the package, 
we've also included powerful search and 
sort routines (for single dimension arrays; 
Search: 1000 elements in 1 second. Sort: 1000 


SSeS seseHesGSeeseeeeeseeseseseevaegsegeseseseaeeaesea 


OUR GUARANTEE 


IF YOU DON'T SAVE MORE THAN THE PUR- 
CHASE PRICE OF ‘ROUTINE MACHINE’ IN 
YOUR OWN PROGRAMMING TIME IN THE 
FIRST 30 DAYS YOU OWN IT, SIMPLY RE- 
TURN IT FOR A COMPLETE REFUND, NO 
QUESTIONS ASKED! 


[PRR RRRRERERRRRERERARSRRRERR RRR RARAREARRAEARRSE EE SE 


eseeaeeaeeaeeeeeenaeenae 
eeeeeveeeeeeeaaeescaa 


; i. 
~* r) * be * 
GRAPHICS 


elements in 90 seconds), and a number of 
other often-needed routines as well (30 
routines in all). 


Additional library disks titled “Ampersoft Pro- 
gram Library” are already available. 


some of the other routines in The Routine 
Machine (pilus others not listed) are: 


SWAP: Swaps two string or numeric values. 


TEXT OUTPUT: Prints with no “word break’ on 
screen. 


STRING OUTPUT: Input any string, regardless of 
commas, etc. 


ERR: Stack fix for Applesoft ONERR handling. 


GOTO, GOSUB: Allows computed state- 
ve Example: GOTO X *50r GOSUB 


BLOAD: Load any binary file 5 times faster 
than normal. Hi-Res pictures load in 
under 2 seconds. 


RESET HANDLER: Treats RESET with ONERR:; or 
will RUN or reboot disk. 


HI-RES ASCII: Character set for mixing text 
Hi-Res graphics. 


TURTLE GRAPHICS: Versatile Hi-Res graphics 
routines for easy drawing of Hi-Res 
figures. 


soutmnwestern doto systems 


P.O. BOX 582 « SANTEE, CALIFORNIA 92071 « TELEPHONE: 714/562-3670 
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Even FaSter Prim@S..cccccvcccccvvcccccsececeeeAnthony Brightwell 
Is this the last word on prime number generation? 


I modified Charles Putney's program from the February issue, 
and cut the time from 330 milliseconds down to 183 
milliseconds! Here is what I did: 


* I sped up the zero-memory loop by putting more STA's 
within the loop. 


* I removed the CLC from the main loop. After all, why 
CLC within the loop if you're looping on a BCC 
condition? 


* I removed the LDA #SFF from the main loop. It was 
there to be sure a non-zero value gets stored in 
non-prime slots, but why LDA #SFF if the accumulator 
never contains $00 within the loop? 


* I changed the way squares of primes are computed. 
Charlie did it using a quick 8-bit by 8-bit multiply. 
I took advantage of a little number theory, and shaved 
off some time. 


The method I use for squaring may appear very round-about, but 
it actually is faster in this case. Look at the following 
table: 

Odd #'s square nea 
1 


+ +t & 6 HT 


e 
0 
1 
3 
6 
0 


won OW eH 
NS 
ui 


81 1 


The high byte of the changing factor in the “neat formula" is 
stored in the LDA instruction at line 1550, and the low byte in 
the ADC instruction at line 1900. The factor is the sum of the 
numbers from 1 to nz: 1+2=3, 1+2+3=6, 1+2+3+4=10, etc. In all, 
31 primes are squared, and the total time for all the squaring 
is less than 3 milliseconds. 


Here is a driver in Applesoft to load the program and then 
print out primes from the data array. 


10 REM DRIVER FOR TONY'S FAST PRIME FINDER 

20 PRINT CHRS (4)"BLOAD B.TONY'S SUPER-FAST PRIMES" 
30 HOME : PRINT "HIT ANY KEY TO START" 

40 GET AS: PRINT “ GENERATING PRIMES .* 

50 CALL 32768 

60 FOR A = 8195 TO 24576 STEP 2 

70 IF PEEK (A) = 0 THEN PRINT A - 8192;" "; 

80 NEXT 


A few more cycles can probably still be shaved.... Any takers? 
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1010 .OR $8000 SAFELY OUT OF WAY 
1020 : -TF B.TONY'S SUPER-FAST PRIMES 
2000- 1040 BASE .EQ $2000 BASE OF PRIME ARRAY 
FF3A- 1050 BEEP .EQ $FF3A BEEP THE SPEAKER 
1070 .MA ZERO 
1080 TA ]1+$001,X 
1090 STA ]1+$101,X 
1100 STA ]14+$201,X 
1110 STA ]1+ 301,% 
1120 STA ]1+$401,X 
1130 STA ]1+$501,X 
1140 STA ]1+$601,X 
1150 STA 11+$701,X 
1160 .DO J1<$5806 
1170 >ZERO ]1+$800 
1180 .FIN 
1190 EM 
1200. Sseeueeeoteteensetoscwesoccessece 
1210 ‘ MAIN CALLING ROUTINE 
8000- AQ 64 1230 MAIN LDA #100 DO 100 TIMES SO WE CAN MEASURE 
8002- 8D 48 81 12h0 STA COUNT THE TIME IT TAKES 
BSG: 58 A aed, SRE BREE, Amount star 
800B- CE 4 1270 DEC COUNT CHECK COUNT 
800E- DO F8 1280 BNE .1 DONE ? 
8010- 4C 3A FF 1290 : JMP BEEP SAY WE'RE DONE 
1340 & PRIME ROUTINE 
1320 # SETS ARRAY STARTING AT BASE 
1330 # TO $FF IF NUMBER IS NOT PRIME 
1340 # CHECKS ONLY ODD NUMBERS > 3 
1350 ® INC = INCREMENT OF KNOCKOUT 
1360 : N = KNOCKOUT VARIABLE 
1 Bo PRIME 
8013- A2 01 1 90 LDX #1 
8013- 8E 30 81 1400 STX SHCNT+1 STARTING MULTIPLIER FOR SQUARE 
8018- 8E 33 81 1410 STX MULT+1 
Boic- ef F1 80 1430 STX SQUARE+1 
O1F- 8A 1440 TXA CLEAR WORKING ARRAY 
8020- 1450 .1 >ZERO BASE 
8020- 9D 01 20 0000> STA BASE+$001,X 
8023- 9D 01 21 00005 STA BASE+$101,X 
8026- 9D 01 22 00005 STA BASE+$201,X 
8029=- 9D 01 23 0000> STA BASE+ 301,x 
802C- 9D 01 24 0000> STA BASE+$01,X 
802F- 9D 01 25 00005 STA BASE+$501,X 
8032- 9D 01 26 0000 STA BASE+$601,X 
8035- 9D 01 27 0000> STA BASE+ Tol, 
o> D < 
8038- 00005 SZERO BASE+$800 
8038- 9D 01 28 0000>> STA BASE+$800+$001,X 
803B- 9D 01 29 0000>> STA BASE+$800+$101,X 
803E- 9D 01 2A 0000>> STA BASE+$800+$201,X 
8041- 9D 01 2B 000055 STA BASE+$800+$301,X 
8044- 9D 01 2C 000055 STA BASE+$800+$401,X 
8047= 9D 01 2D 0000>> STA BASE+$800+$501,X 
804A- 9D 01 2E 000055 STA BASE+$800+$601,X 
804D- 9D 01 2F 0000>> STA BASE+$800+$701,X 
0000>> .DO BASE+$800<$5806 
8050- 0000>> >ZERO BASE + $800+ 800 
8050- 9D 01 30 0000>>> STA BASE+$800+$800+$001,X 
8053- 9D 01 31 0000>>> STA BASE+$800+$800+$101,X 
8056- 9D 01 32 0000>>> STA BASE+$800+$800+$201,X 
8059- 9D 01 33 00005>> STA BASE+$800+$800+$301,X 
805C- 9D 01 0000>>> STA BASE+$800+$800+3$40 1, X 
805F- 9D 01 35 0000>>5 STA BASE+$800+$800+$501,X 
8062- 9D 01 36 0000>>> STA BASE+$800+$800+$001,X 
8065= 9D 01 37 0000>>> STA BASE+$800+$800+$701,X 
0000>>> .DO BASE+$800+$800<$5800 
8068- 0000555 >ZERO BASE+$800+$800+$800 
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QuICKTRACE 


relocatable program traces and displays the actual machine operations, while It is running 
without interfering with those operations. Look at these FEATURES: 


Single-Step mode displays the last instruction, 
next instruction, registers, flags, stack contents, 
and six user-definable memory locations. 


Trace mode gives a running display of the Single- 
Step information and can be made to stop upon 
encountering any of nine user-definable 
conditions. 


Background mode permits tracing with no display 
until itis desired. Debugged routines run at near 
normal speed until one of the stopping cond- 
Itions is met, which causes the program to return 
to Single-Step. 


QUICK TRACE allows changes to the stack, 
registers, stopping conditions, addresses to be 
displayed, and output destinations for all this 
Information. All this can be done In Single-Step 
mode while running. 


Two optional display formats can show a sequence 
of operations at once. Usually, the information 
is given in four lines at the bottom of the screen. 


QUICK TRACE is completely transparent to the 
program being traced. It will not interfere with 
the stack, program, or I/O. 


QUICK TRACE Is relocatable to any free part of 
memory. Its output can be sent to any slot or to 
the screen. 


QUICK TRACE is completely compatible with 
programs using Applesoft and Integer BASICs, 
graphics, and DOS. (Time dependent DOS 
operations can be bypassed.) It will display the 
graphics on the screen while QUICK TRACE Is 
alive. 


QUICK TRACE is a beautiful way to show the 


incredibly complex sequence of operations that 
8 computer goes through in executing a program 


Qutck TRACE $60 


Is atrademark of Anthro-Digital, Inc. 
Copyright © 1981 
Written by John Rogers 
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See these programs at participating Computerland and other 
fine computer stores 


Anthro - Digital Software, Inc. 
P.O. Box 1385 Pittsfield, MA 01202 
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9D 01 38 0000>>>> 
9D 01 39 0000>>>> 
9D 01 3A 0000>>>> 
9D 01 3B 0000>>>> 
9D 01 3C 0000>>>> 
9D 01 3D 0000>>>> 
D 01 3E 0000>>>> 
D 01 3F 0000>>>> 
0000>>>> 
0000>>>> 
9D 01 40 0000>>>>> 
9D 01 41 0000>>>>> 
D 01 42 0000>>>>> 
D 01 te 0000>>>>> 
D 01 44 0000>>>>> 
D 01 45 0000>>>>> 
9D 01 46 0000>>>>> 
9D 01 47 0000>>>>> 
0000>>>>> 
0000>>>>> 
9D 01 48 0000>>>>>> 
9D 01 49 0000>>>>>> 
9D 01 4A 0000>>>>>> 
9D 01 4B 0000>>>>>> 
9D 01 4C 0000>>>>>> 
9D 01 4D 0000>>>>>> 
9D 01 HE 0000>>>>>> 
9D 01 4F 0000>>>>>> 
0000>>>>>> 
0000>>>>>> 
9D 01 50 0000>>>>>>> 
9D 01 51 0000>>>>>>> 
9D 01 52 0000>>>>>>> 
9D 01 53 0000>>>>>>> 
9D 01 54 0000>>>>>>> 
9D 01 55 0000>>>>>>> 
9D 01 56 0000>>>>>>> 
9D 01 57 0000>>>>>>> 
0000>>>>>>> 
0000>>>>>>> 
9D 01 58 0000>>>>>>>> 
9D 01 59 0000>>>>>>>> 
9D 01 5A 0000>>>>>>>> 
D 01 5B 0000>>>>>>>> 
D 01 5C 0000>>>>>>>> 
9D 01 5D 0000>>>>>>>> 
9D 01 5E 0000>>>>>>>> 
9D 01 5F 0000>>>>>>>> 
0000>>>>>>>> 
0000>>>>>>>> 
0000>>>>>>> 
0000>>>>>> 
0000>>>>> 
0000>>>> 
0000>>> 
0000>> 
0000> 
E8 1460 
E8 1470 
FO 03 1480 
4C 20 80 rte 
AQ 03 1510 .2 
8D 27 81 1520 
OA ‘eto MAINLP 
89 OG | 1550 SQU 
ARE 
BB 18 1 1300 
AD 33 31 Vie 
OA 1580 
2E 18 81 1590 
OA 1600 
2E 18 81 1610 
OA 1620 
2E 18 81 Le 
AA 1640 
E8 1650 
DO ° 1660 
EE 18 81 1670 


STA BAS 
STA BAS 
STA BAS 
STA BAS 
STA BAS 
STA BAS 
STA BAS 
STA Bae 
~DO BAS 

>ZERO B 
STA BA 
STA BA 


B 
OB 
SZERO 


0) 
>ZER 


#3 
START+1 
INC+1 
ry pe 


A N+2 


MULT+1 
N+2 
N+2 
N+2 


1 
N+2 


A BASE+$800+ 
BASE+$800+$800+$800+$800+$800+$800+ 


A BASE+ 


E+$800+$800+$800+ 
E+$800+$800+$800+ 
E+$800+$800+$800+ 
E+$800+$800+$800+ 
E+$800+$800+$800+ 
E+$800+$800+$800+ 
E+$800+$800+$800+ 
EF 800+ eae ied 


+$800 800 
ae Hie, 800+ Boo: 


MAO SW N - © 
DBOOOO0000 


SE+$800+$800+$800+S800+ 
SE+ oe 800+$800+$800+ 


00 
10 
E 20 
SE+$800+$800+$800+$500+ 30 
50 
60 


dz) 
+ 
+ 
oO 
© 
+ 
© 
© 
ry 
© 
© 
+ 


SE+$800+$800+3800+$800+ 
SE+$800+$800+$800+$800+ 
SE+$800+$800+$800+$800+ 
SE+$800+$800+$800+$800+$70 


BASE+$800+$800+$800+$800<$5800 
BAS a eee +$800+$800+ 


AS eeota 
ASE+$800+ +$800+$8 


BASE+ 80 +385 +380 +$800+$800+$800 
00+ 


00+ 00+ 


BASE+$800+$800+$800+$800+ 
BASE+$800+$800+$800+3800+ 


BASE+$800+$800+$800+$800+ 


BASE+ ea 800+$800+$800+$800+$800+ 
00+$800+$800+$800+$800 


BASE+ 
O BAS +3806 rte +$80 
00+$800+$800+ 
BASE+$800+$800+$800+$800+ 
BASE+$800+$800+$800+$800+ 
BASE+$800+$800+$800+$800+ 
BASE+$800+$800+$800+$800+ 
BASE+$800+$800+$800+$800+ 
BASE+$800+$800+$800+$800+ 
BASE+$800+$800+$800+$800+ 
BASE+$800+$800+$800+$800+ 


EVERY ODD LOCATION 


NOT FINISHED CLEARING 


INC = START ® 2 
MOVE MULT TO N 


MULTIPLY BY 8 


AND ADD 1 


atoleleatealeateate’ 


00+ 


00+ 
00+ 


00+ 


00+ 
00+ 


COONAN 
+ NAH PUN © 


DBoOoOo0000o 


800+$701 
800<$580 
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DS PS DS Pd OS DS DS DS 


6 


810B- 18 1680 .1 CLC ADD BASE TO N 

810C- AD 18 81 1690 LDA N+2 

810F- 69 20 1700 ADC /BASE 

8111- 8D 18 81 1710 STA N+2 

8114—- AB 1720 TAY 

8115- 8A 1730 bake TXA 

8116- 9p 00 FF 1790 N STA $EFO0,x REMEMBER THAT N IS REALLY AT N+2 
ico” ae eee” Beare 

811C= 90 F8 1480 BCC LOOP DONT'T BOTHER TO ADD, NO CARRY 
811E- C8 1790 INY INC HIGH ORDER 

811F- 8C 18 81 1800 STY N+2 

8122= CO 60 1810 CPY /BASE+$4000 IF IS GREATER THAN $6000 
8124- 90 FO 1820 BCC LOOP NO, REPEAT 

8 126- Ae 00 1830 START LD fat GET OUR NEXT KNOCKOUT 

8129- E8 1850 INX START = START + 2 

812A- 30 1B  ~—«: 1860 BMI END WE'RE DONE IF X>$7F 

812C- EE 30 81 1870 INC SHCNT+1 INCREMENT SQUARE MULTIPLIER 

8 128 A 0 1880 SHCNT LDA rt AND ADD TO MULTIPLIER 

8132- 69 00 1900 MULT ADC ##-# 

Stay 96 Gh | tase Sani ae 

8139- EE F1 80 1930 INC SQUARE+1 

813C- BD 00 20 1940 .1 LDA BASE,X GET A POSSIBLE PRIME 

B13F- OF 1990 BNE NEXT THIS ONE HAS BEEN KNOCKED OUT 
i AE on 1 By lee 

8145- DO A5 1960 BNE MAINLP- ...ALWAYS 

8147= 60 1990 END =s«iRTS 

8148- 00 2010 COUNT .DA ##-# COUNT FOR 100 TIMES LOOP 


Supercharge Your APPLE II* 


Plug-in compatibility 


320K bytes of RAM (200NS) memory designed 
to function like two 35 track floppy disk drives 


Compatible with Appie DOS 3.3 and Apple 
Pascal 1.1 


Same size as the Apple Disk tI* Drive 


invisible memory refresh - even with the Apple 
turned off 


Rechargeable battery system built-in to pro- 


The Axion RAMDISK™ 320K Memory System for 
the Apple Il and Apple !| Plus* provides access 
speeds never before available. The Axion memory 
system is designed to interact with Apple DOS 
3.3* and Apple Pascal 1.1° like two standard flop- 
py disk drives while delivering the lightning fast 
access speeds of RAM memory. This also leaves 
32K of RAM for advanced programming techni- 
ques. The interface board is slot independent and 
draws no power from your Apple. The 
rechargeable battery system built into the unit 
provides three hours of backup in the event of a 
power loss. Drop by your local Apple dealer or 
contact Axion, Inc. for more information. 


Trademark ot Appie Computer, Inc 
Pascal ts a Trademark ot U.C.S.D. Regents 


vide 3 hours of auxiliary power 


Slot independent interface board draws no 
power from your Apple 


All firmware is in static RAM on the interface 
board 


Includes software for diagnostic, fast load and 
copy routines, and business applications 


WN 170 N. Wolte Road, 


Sunnyvale, CA 94086 


AXLON (408) 730-0216 
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Moving the Symbol Table ah givaraisandl Briel ar eh ele <ereue Rubiaceae etetee Gee Oe Morgan 


Do you use the language card version of the S-C Macro 
Assembler? Have you ever tried to create more space for your 
object code by patching S$D01D to move the symbol table up from 
$1000? Got a MEM PROTECT ERROR, didn't you? Here's what went 
wrong, and how to fix it. 


The problem is the private label table for macros. This table 
is also protected during assembly, and starts at SFFF and grows 
downward. The base of the table is defined by a LDA #$10 
instruction at $E564. When the table is searched during 
assembly, the check for the end of the table is a CMP #$10 at 
SE6A0. Both of these must also be patched to allow the $D01D 
patch to work. Here are the commands to correct the assembler: 


:$C083 C083 N E564:A5 4B N E6A0:C5 4B N C080 
:BSAVE S-C.ASM.MACRO.LC,A$D000,L$231F 


This changes the LDA #$10 to a LDA LOMEM+1 and the CMP #$10 to 
a CMP LOMEM+1. Now, whenever you want to move the symbol 
table, just type the following (where XX is the page you want 
the tables to start with): 


:$C083 C083 DO1D:XX N C080 
> NEW 


The NEW command is necessary to reset the page-zero pointers. 


If you are uSing a target file and don't care about object code 
space, you can move the symbol table down. This creates more 
source code and symbol table space. You can move the table 
base all the way down to $800, if you are not using private 
labels. If you are using them, remember that each private 
label occurence uses 5 bytes of table space, so be sure to 
leave enough room under the table base. 


Here's a map that shows how things got this way: 


| Symbol | 
| Table 
ia LOMEM 
Pee eee 
| Assembler | | Symbol | 
| | | Table | 
a ae aa $1000 ---------- LOMEM 
| Private | | Private | 
| Labels | | Labels | 
Normal Language Card 
Version Version 


The normal version of the assembler has to start at $1000, so 
the private label table also has to be there. The language 
card version didn't get changed to reflect the fact that the 
private labels could now be moved. 
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EXEC without END from Applesoft...........-.eBOb Sander-Cederlof 


I have been working on a project with Lee Meador which requires 
a binary file to be loaded into the second $D000 bank of a 16K 
RAM card. It is just a little tricky to do this! 


You cannot just use a simple BLOAD, because you have to be sure 
the RAM card is selected and write-enabled. You cannot do it 
from a running Applesoft program, or even as a direct command 
after the Applesoft prompt, because if the RAM card is enabled 
the Applesoft ROMS are not. We wanted to do it from within the 
running Applesoft program. 


The typical answer is to create an EXEC file with the commands 
to call the monitor, select the RAM card, BLOAD the file, 
reselect the motherboard ROMs, and bounce back to Applesoft. 
For example: 


CALL~-151 call Apple monitor 

C089 C089 write-enable RAM with 2nd bank 
F800<F800.FFFFM copy of monitor in RAM card 
BLOAD B.BOBANDLEE load the file 

cosl back to Applesoft ROMs 

3D0G back to Applesoft, softly 


You can nicely EXEC this file from the direct mode, or from a 
running Applesoft program. However, in order to use it froma 
running program, the program must END or STOP. Do it like 
this: 


100 PRINT CHRS$(4)"EXEC LOAD 2ND BANK":END 


If you don't END the program, the EXEC file will probably just 
become part of the input to your Applesoft program, rather than 
being executed. 


HOWEVER.... You can beat the system. Change the EXEC file to 
this form: 


C089 C089 
F800<F800.FFFFM 
BLOAD B.BOBANDLEE 
C081 

D7D2G 


And the Applesoft code to this: 
100 PRINT CHRS$(4)"EXEC LOAD 2ND BANK":CALL-151 


Note the two changes in the EXEC file: the CALL-151 is not 
there, and 3D0G has become D7D2G. And in the Applesoft code 
instead of END we have CALL-15l. 


The CALL-151 starts up the Apple monitor, which reads the 
commands from the EXEC file. The last command jumps to SD7D2, 
the running entry into Applesoft. This continues execution of 
the Applesoft program from the next statement after the 
CALL-151. 
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Decision 


Decision Systems 


S P.O. Box 13006 
ystems Denton, TX 76203 
817/382-6353 


DIS-ASSEMBLER 


DSA-DS dis-assembles Apple machine language programs into forms 
compatible with LISA, S-C ASSEMBLER (3.2 or 4.0), Apple's TOOL- 
KIT ASSEMBLER and others. DSA-DS dis-assembles instructions or 
data. Labels are generated for referenced locations within the 
machine language program. 

$25, Disk, Applesoft (32K, ROM or Language card) 


OTHER PRODUCTS 


ISAM-DS is an integrated set of Applesoft routines that gives indexed file capabilities 
to your BASIC programs. Retrieve by key, partial key or sequentially. Space from 
deleted records is automatically reused. Capabilities and performance that match 
products costing twice as much. 

$50 Disk, Applesoft. 


PBASIC-DS is a sophisticated preprocessor for structured BASIC. Use advanced 
logic constructs such as IF...ELSE..., CASE, SELECT, and many more. Develop 
programs for Integer or Applesoft. Enjoy the power of structured logic at a fraction of 
the cost of PASCAL. 

$35. Disk, Applesoft (48K, ROM or Language Card). 


FORM-DS is a complete system for the definition of input and output froms. FORM - 
DS supplies the automatic checking of numeric input for acceptable range of values, 
automatic formatting of numeric output, and many more features. 

$25 Disk, Applesoft (32K, ROM or Language Card). 


UTIL-DS is a set of routines for use with Applesoft to format numeric output, selec- 
tively clear variables (Applesoft’'s CLEAR gets everything), improve error handling, 
and interface machine language with Applesoft programs. Includes a special load 
routine for placing machine language routines underneath Applesoft programs. 

$25 Disk, Applesoft. 


SPEED-DS is a routine to modify the statement linkage in an Applesoft program to 
speed its execution. Improvements of 5-20% are common. As a bonus, SPEED-DS 
includes machine language routines to speed string handling and reduce the need for 
garbage clean-up. Author: Lee Meador. 

$15 Disk, Applesoft (32K, ROM or Language Card). 


(Add $4.00 for Foreign Mail) 


*Apple Il is a registered trademark of the Apple Computer Co. 
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Applesoft Program LOCAtOLr....ccccccccccccccccseveeeeBill Morgan 


Have you ever wanted to know exactly where your Applesoft 
program and variables are in memory? How much space is code 
and how much is variables? How close you're getting to the 
Hi-Res display space? FRE(0) will tell you how much space you 
have, but not where it is. You can PEEK the Applesoft 
pointers, or go into the monitor to check them, but that means 
you have to remember where all the pointers are. 


In the October, 1982 issue of Big Apple Users Digest I saw a 
program by Frank Weinberg to build an EXEC file called FPSTAT, 
which displays the Applesoft pointers to program and variable 
locations. (That program was credited as being reprinted from 
The Grapevine, August, 1982.) Now that was pretty neat, but 
EXEC is so slow, and the adresses were printed in decimal. I'm 
more comfortable thinking of addresses in hex notation. Bob 
suggested writing a BRUNnable program which would execute in 
page 2 (the input buffer), thus avoiding conflict with any page 
3 routines that might be present. Here's what I came up with. 


Using LOCATOR 


Whenever you want to know the memory situation, just BRUN 
LOCATOR. It will display something like this: 


PROGRAM: $0801 TO $0923 
SIMPLE: $0923 TO $0A35 
ARRAYS: $0A35 TO $1B3C 

STRINGS: $9435 TO $9600 


PROGRAM shows the location of the actual text of your program. 
SIMPLE is the simple variables, both numeric and string 
pointers. ARRAYS is the array variables, both numeric and 
string. STRINGS is the area used by the actual text of the 
strings. 


Notice that the upper addresses are all one too large. 
Applesoft's end-of-program and end-of-variables pointers 
actually point to the next available location, rather than the 
last location used. Similarly, the end-of-strings pointer is 
HIMEM, which is one past the last location available. I wrote 
another version of LOCATOR which automatically decremented the 
second address in each line, but that got cumbersome, and 
returned silly values if the Applesoft program had not yet been 
RUN. (For example, SIMPLE: $0923 TO $0922.) 


If you want to CALL LOCATOR from within an Applesoft program, 
change line 1320 from JMP $3D0 to RTS, and change the origin to 
$294. Then you can CALL 660, if you're not uSing very long 
input lines. Or, you can put LOCATOR in page 3, if you're not 
already using that area. 


It is also interesting to RUN a program, BRUN LOCATOR, then 
type FRE(0) and call LOCATOR again. This lets you see just how 
much wasted string space you have had, and gives you some idea 
how long the garbage collector takes to clear how much space, 
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I'm looking forward to using LOCATOR together with EXAMINER 
(from AAL June, 1982) to study Applesoft's variable structure, 
You can find more information on Applesoft variables and their 
pointers on pages 126-127 and 137 of the Applesoft manual. 


How LOCATOR Works 


Since we are printing eight addresses, the X-register is used 
to count from 0-7. In lines 1140-1190 that count is converted 
into a value of $0, $8, $10, or $18, to determine which title 
line to print. If the titles hadn't been a convenient 8 bytes 
long, we could have inserted a title offset at the beginning of 
each of the .DA statements in lines 1570-1600, and loaded Y 
from there. 


The heart of the program is the table of Applesoft pointers at 
lines 1570-1600. In lines 1420-1440 the Y-register is loaded 
with a value from the table, then used to load the A- and 
X-registers with the address pointed to. The program then 
calls MON.PRNTAX, which displays first the A- and then the 
X-register. 


RAM/ROM PROGRAM DEVELOPMENT BOARD $35.00 
Plugs into any Apple slot. Holds one user-supplied 2Kx8 memory chip. Use a 6116 type RAM chip for 
program development or just extra memory. Plugin a programmed 2716 EPROM to Keep your favorite routines 
‘on-line’. Maps into $Cn00-SCnFF and $C809-SCFFF memory space. Instructions & circuit diagran provided. 


The ’“MIRROR’ : Firmware for Apple-Cat $297.00 
Conmunications ROM plugs directly into Novation’s modem card. Three basic modes: Ousb Terminal, Remote 
Console & Programmable Modem. Added features include: Printer buffer, Pulse or Tone dialing, true 
dialtone detection, audible ring detect and ring-back option. Directly supports many 80-column boards 
(even while printing) and Apple’s Comm card commands. (Apple-Cat Hardware differences prevent 100/ 
interchangability with Comm card.) Includes Hayes-to-AppleCat register equivalances for software 
conversion. Telephone Software Connection (213-516-9430) has several programs which support the ‘MIRROR’. 


The “PERFORMER’ : Smarts For Your Printer $49.00 
Get the most from your smart printer by adding intelligence to your ‘dumb’ interface card. The PERFORMER 
Board plugs into any Apple slot for immediate access (no programs to find and load). Easily select 
printer fonts and many other features via a user-friendly menu. Replaces manual printer set-up. No need 
to remember ESC commands. Also provides TEXT and GRAPHICS screen cumps. Compatible with Apple, Tymac, 
Epson, Microtek and similar ‘dumb’ Centronics type paralle! I/F boards. Specify printer: | EPSON MX80 
W/Graftrax-80, EPSON MXI00, EPSON HX80/MX100 W/Graftrax Plus, NEC 8023A, C.Itoh 8510 (ProWriter), OKI 
Microline 82A/83A W/OKIGRAPH. (OKI Bonus: The PERFORMER Generates ENHANCED and DOUBLE STRIKE Fonts) 


Avoid A $3.00 Shipping/Handl ing Charge By Mailing Full Payment With Order 
RAK -~-WA RE 
41 Ralph Road 
West Orange NJ 07052 


#48 SAY YOU SAW IT IN ‘APPLE ASSEMBLY LINE’! #8288 
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1010 
1020 .OR $292 HIGH END OF INPUT BUFFER 
1030 # “TF 
i080 Pare a ea Oe) eT 
0000- 1050 ZERO .EQ 0 
F941- 1070 MON.PRNTAX .EQ $F941 
FDED- 1080 MON.COUT EQ $FDED 
FD8E- 1090 ¥ MON.CROUT .EQ $FD8E 
0292- A2 00 1110 START LDX #0 
o294- 20 8E FD 1130 LOOP JSR MON. CROUT NEW LINE 
0208- 4A 1150 LSR MAKE (X) 
Ooh OA ACG ASL TITLE 
o29B- Ok 180 SL INDEX 
020D- B9 D3 02 1300 1 LDA TITLES, Y SHOW TITLE 
ee okie) an bbe 
2A3~- 
O2AH- CO BA 1230 CMP #':+$80 ns" 2 
O2A6- DO F5 1240 BNE 1 
O2A8- AO 01 1260 LDY #1 FILL WITH " $" 
O2AA- 20 BO 02 1270 JSR PRINT. ADDRESS 
O2AD- AO O 1280 LDY #4 FILL WITH " TO $" 
O2AF- 20 BO 02 1290 JSR PRINT. ADDRESS 
O5BA- 60 DE 1310 Bee LOOP NON GOON 
02B6- 4C DO 03 1320 . JMP $3D0 YES, EXIT TO DOS 
1340 PRINT. ADDRESS 
02B9- BO FB 02 1350 .1 LDA FILLER, Y Y TELLS HOW 
O2BC- 20 ED 1360 JSR MON.COUT MUCH FILLER 
O2BF- 8 1 70 DEY TO PRINT 
02C0- 10 FT E 0 BPL .1 
02C2- BA 1 80 TXA 
02C3- 48 1410 PHA SAVE X 
O2Ch- BC F3 02 1420 LDY TABLE, X GET POINTER 
02C7- BO C1 00 1430 LDA ZERO+1,¥ GET HIGH BYTE 
O2CA- Bb 00 1440 LDX ZERO GET LOW BYTE 
02cc~ 20 1 F9 1450 JSR MON PRNTAX DISPLAY ADDRESS 
O2D0~ AA 1470 TAX RESTORE X 
02D1- EB 1480 INX AND GET READY 
02D2~ 60 1496 : RTS FOR NEXT PASS 
1510 TITLES 


O2D9- CD BA 1520 ~AS -/PROGRAM:/ 
O2Ei- C5 BA 1530 eAS -/ SIMPLE: / 


O2E9- D3 BA 1540 AS -/ ARRAYS: / 


O2F1i- D3 BA 1338 Z «AS -/STRINGS: / 

O2F3- 67 teke TABLE .DA # afese GB START OF PROGRAM, END OF PROGRAM 
02F5- 62 6B 15380 DA # START OF VARIABLES START OF ARRAYS 
02F7- D 1 ze DA # START OF ARRAYS, END OF NUMERICS 
O2F9- 6F 73 ae ao ‘ DA # eB eD START OF STRINGS, HIMEM 


O2FB- A4 AO CF 
O2FE- D4 AO 1620 FILLER .AS -/$ OT / 
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“HARDCORE Computing warns pirates 
about the latest technology that companies 
are using against them.” TIME, Feb. 8, 1982 


ay most 
controversial 


computer . 
mMageeine | 


———=)) 


“When some Apple enthusiasts heard 
about the boycott (of bit-copy ads), they con- 
cluded that it was nothing but censorship and 
another example of the magazines ignoring 
the average Apple user to placate their adver- 
tisers. So they started their own publication, 
HARDCORE Computing " ESQUIRE, Jan. 1982 


what Is hardcore computing ? 


its a “HOW TO” guide for users 


| How To Write Your Own Data Base 
about Using text files and EXEC 
DOS CALLing DOS routines from BASIC 
source listings of special DOS routines 


applesoft tricks ‘n treats PEEKS 
ampersand (&) utilities @0d 


| | 
| 0 | 
| at 3 | | | 
subroutine master library POKES | age: ii | 
[=o se | | | 
plus ns 843 iy | 
see aa Ww 5 = | 
nr” | # >. o | 
Lots of complete program listings from the | = so, | Pi 4 | 
HARDCORE Program Library of copyable software | = - ae : . E | 
PSess CU i 
| Oz i oj al 
Upeonning fides | 17 
Q00 eae Fillet 
no. . | PS < | = 
x All About Graphics! i= ai 2 | 
. AK Program Utilities. ‘!S <8 ; 
| WA [we Fe S| 
IW Games ? \em ae 2 ; | 
os ° » ue S Z « > Fi 
a, ROP LEN ET ee S Fae ek | 
HardCore Computing is a quarterly magazine. 
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the 
censored 
secrets 
behind 

the 

methods |7_ 
and : 
madness 


0 
commercial Vr 


COPY-PROTECTION! 


ALSO HOW TO: 


Market your software. 


dh 


Copy-protect your disks. 
Normalize altered D.0.S. 
Use bit-copiers to make - back-ups. 


~ PLUS Game, Utility, Business, 


Educational program listings. 


For serious 
Apple computerists! 


REPEAT and UNTIL for AppleSoft.....cesveceeveceeeevese BObby Deen 


The following program adds three statements to Applesoft: 
&REPEAT, &UNTIL, and &POPR. With these you can write 
Pascal-like loops in your Basic programs. 


You start the loop with &REPEAT, and end it with &UNTIL <exp>. 
The loop will be repeated until the <exp> evaluates to non-zero 
(true). AS long as the value of <exp> is zero (false), the 
loop will keep going. 


I use the system stack for saving the line number and the 
program pointer, just like Applesoft does with FOR-NEXT loops. 
A special code is used to identify the stuff on the stack, so 
you can have FOR-NEXT loops inside REPEAT-UNTIL loops and vice 
versa. 


The statement &POPR removes one REPEAT block from the stack, in 
case you want to jump out of a loop rather than completing it. 
(This is not generally a good practice, even with FOR-NEXT 
loops, but you can do it if you feel you must.) The statement 
"GUNTIL 1" will do the same thing as &POPR, but &POPR takes 
less space and time. 


If &POPR or &UNTIL is executed when there is not an UNTIL block 
on the top of the stack, you will get "NEXT WITHOUT FOR" error. 


Applesoft parses the word “REPEAT" as four letters "REPE" and 
the token “AT". This makes the listings look weird, but never 
mind. Likewise, “UNTIL" looks like a variable name during 
tokenization, so the expression runs into the letter "L"; but 
at execution time all is understood. 


Here is a sample program which shows a pair of REPEAT loops: 


100 REM TEST REPEAT/UNTIL 
110 D$ = CHRS$ (4): PRINT DS$"BLOAD B.REPEAT/UNTIL": CALL 768 


120 I = O: & REPE AT 

130 I = I + l: PRINT I": "3 

135 J = 0: & REPE AT :J = J + 1: PRINT J" “3: & UNTILJ D 14: 
PRINT 


140 & UNTILI = 10 


Lines 1200-1250 install the ampersand vector. I assumed the 
JMP opcode is already stored at $3F5, since DOS does that. 
After BLOADing the file, CALL 768 will executed these lines. 


When the "&" is executed, the 6502 jumps to AMPER.PARSE at line 
1270. Lines 1270-1420 search through a table of keywords, 
matching one if possible with the characters after the "&" in 
your Applesoft program. This is a general routine, which you 
can use for any keywords, just by making the appropriate 
entries in the table (lines 1500-1590). 


The table contains a string and an address for each keyword. 
The string is shown as a hex string, and includes the exact 
hexadecimal values expected. For example, for "REPEAT" I have 
entered the ASCII codes for "REPE" and the token value or "AT". 
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After the keyword there is a 00 byte to flag the end, and a two 
byte address. The address will be pushed onto the stack so 
that an RTS instruction will branch to the processing program 
for that keyword. Since RTS adds one, the address in the table 
have "-1" after them. 


The last entry in the table has a null keyword, so it will 
match anything and everything. If the search goes this far, we 
have a syntax error; therefore the branch address is to the 
Applesoft syntax error code. 


When a keyword is matched, the Y-register contents need to be 
added to TXTPTR. A subroutine in the Applesoft ROMs does this, 
called AS.ADDON. Since both REPEAT and POPR require the next 
character to be end-of-line or a colon, a JMP to AS.CHRGOT gets 
the next character and tests it. The RTS at the end of 
AS.CHRGOT actually branches to the processing code for the 
keyword, 


Lines 1600-1840 process the REPEAT command. A five-byte block 
is pushed onto the stack, consisting of the current line 
number, the TXTPTR, and a code value S$B8. 


Lines 1850-2070 process the UNTIL command. First the 
expression is evaluated. If the value turns out to be zero, 
the byte at FAC.EXP will be zero. If it is zero, we need to 
keep looping; if non-zero, the loop is finished. Looping 
involves copying the line number and text pointer from the 
stack back into CURLIN and TXTPTR, and then going to AS.NEWSTT. 
The REPEAT block is left on the stack, and execution resumes 
just after the &REPEAT that started this loop. 


If the expression is true (non-zero), the loop is terminated. 
Termination is trivial: just pop off the REPEAT block, and go 
to AS.NEWSTT to continue execution after the UNTIL statement. 
I could pop the block off with seven PLA's, but I used the 
technique of adding 7 to the stack pointer instead. 


Naturally, this package was assembled to sit in page 3, along 
with 99 other machine language things you use. You can easily 
move it to another location, just by changing the origin (line 
1180). Or you can use the routines with Amper-Magic or the 
Routine Machine. Note that the routines themselves are 
relocatable run-anywhere code (no data references, JSR'S, or 
JMP's to points within the routines). You will have to shorten 
the routine names to four or less characters to use them with 
Amper-Magic. 


Pascal has some other looping constructs which you might like 


to see in Applesoft. Now that you see how I did this one, why 
not try your hand at coding REPEAT WHILE? 
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41010. Sasee ete e eee 
1020 # BY BOBBY DEEN 
1030 # 629 WINCHESTER DR 
1040 # RICHARDSON, TX. 75080 
1050 : (214) 235-4391 
1070 AMPERSAND.VECTOR .EQ $3F5 
1080 AS.FRMEVL .EQ $DD7B EVALUATE A FORMULA 
1090 AS.CHRGOT <EQ $00B GET CHAR AT TXTPTR 
1100 AS.TXTPTR .EQ $00B POINT TO PROGRAM TEXT 
1110 AS.SYNERR .EQ $DEC SYNTAX ERROR 
1120 AS.ADDON  .EQ $D99 ADDS (Y) TO TXTPTR 
1130 AS.CURLIN .EQ $75 CURRENT LINE NUMBER 
1140 FAC.EXP .EQ $9D EXPONENT OF FAC 
1150 AS.BADFOR .EQ $DDOB NEXT WITHOUT FOR ERROR 
1160 AS.NEWSTT .EQ $D7D2 EXECUTE NEW STATEMENT 
1150 OR $300 
1190 : -TF B.REPEAT/UNTIL 
A9 OB 1210 START LDA #AMPER. PARSE 
8D F6 03 1220 STA AMPERSAND. VECTOR+1 
AQ 03 1230 LDA /AMPER. PARSE 
8D F7 03 12h0 STA AMPERSAND. VECTOR+2 
i 
1270 AMPER. PARSE 
A2 FF —-: 1280 LDX #-1 START OF TABLE 
AG FF 1290 - LDY #-1 START OF AMPER-CALL 
c8 1340 ? INY 
BD 32 03 1320 LDA TABLE,X NEXT CHAR FROM TABLE 
FO OE 1 30 BEO .4 END OF KEYWORD, MATCHED 
D1 BS 13 0 CMP (AS.TXTPTR).Y COMPARE WITH AMPER-CALL 
FO F5 1350 BEQ . MATCHES SO FAR 
1360 ®.--SKIP TO NEXT TABLE ENTRY----- 
E8 1 70 3 INX .e.TO END OF KEYWORD 
BO BA o> 13 0 BNE ge ee?™ 
E 1 60 INX .«eOVER THE ADDRESS 
E 1410 INX 
DO E9 1420 BNE .1 .» ALWAYS 
1430 #..-MATCHED A KEYWORD----------~- 
20 98 DO 14K0 .4 JSR AS. ADDON ADJUST TXTPTR PAST KEYWORD 
BD 4 0 1450 LDA TABLE+2,X GET ADDRESS AND BRANCH 
BD 33 03 1470 LDA TABLE+1,X 
4C BT 00 1490 ; JMP AS.CHRGOT GET CHAR AT TXTPTR 
abe 1510 TABLE 
5 C5 00 1520 «HS 52455045C500 "REPEAT® 
49 0 i 1530 .DA REPEAT-1 
€3 03” je50 yet hd ieee 
1 52 00 1360 -HS A15200 "POPR" 
c 63 1 0 SDA POPR-1 
09 1580 -HS 00 ANYTHING 
C8 DE 1590 : “DA AS.SYNERR-1 
1810 # REPEAT COMMAND 
1630 REPEAT 
DO 57 16h0 BNE SYNERR NOT THERE 
68 1650 PLA SAVE RETURN ADDRESS 
AA 1660 TAX 
1 ie TAY 
Ae 76 1690 LDA AS.CURLIN+1 PUSH CURRENT LINE NUMBER 
A 15 1710 LDA AS. CURLIN 
AR B9 1739 LDA AS. TXTPTR+1 PUSH TEXT POINTER 
2 B8 1750 LDA AS. TXTPTR 
\ 1760 PHA 
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Apple 


APPLE PERIPHERALS ARE OUR ONLY BUSINESS 


TIME It 
THE MOST POWERFUL, EASIEST TO USE CLOCK FOR YOUR APPLE 


@ Time in hours. minutes and seconds. 
@ Date with year. month, day of week and leap year 


@ Will ennance programs for accounting, time and energy management. 
remote control of appliances. laboratory analysis, process control, 
and more. 


@ 24-hour military format or 12-hour with AM/PM indication. 

@ User selectable interrupts permit foreground/background operati 
ot two programs simultaneously. 

@ Crystal controlled for 0005% accuracy. 

@ Easy programming in basic. 


@On board battery backup power for over four 
operation (battery charges when Apple is on). 


f igeqi™ 
waaae #44 


@ Twenty-seven page operating manual included with many examples 
of programs to use with your Apple in any configuration. 

@ Includes disk containing a DOS Dater and many other time oriented 
utilities plus over 25 user contributed programs at no extra cost. 


PRICE $129.00 


SUPER MUSIC SYNTHESIZER 


@ Complete 16 voice music synthesizer on one card. Just plug it into 
your Apple, connect the audio cable (supplied) to your stereo and 
boot the disk supplied and you are ready to input and play songs. 

@ It's easy to program music with our compose software. You will start 
right away a! inputting ycur favorite songs. The Hi-Res screen 
shows what you have entered in standard sheet music format. 


@We give you lots of software. In addition to Compose and Play 
programs. the disk is filled with songs ready to run. 

@ Easy to program in basic to generate complex sound effects. 

@ Four white noise generators which are great for sound effects. 

@ Plays music in true stereo as well as true discrete quadraphonic. 

@ Envelope control. 

@ Will play songs written for ALF synthesizer (ALF software will not 
take advantage of all the features of this board. Their software 


sounds the same in our synthesizer.) 
@ Automatic shutoff on power-up or if reset is pushed. 


@ Many many more features. 


PRICE $159.00 


ANALOG TO DIGITAL CONVERTER 


@ Eliminates The Need To Wait For A/D 
Conversion yust PEEK at data) 


@ A/JD Process Totally Transparen! to Apple 
(looks like memory) 


@ 8 Channels 
@ 8 Bit Resolution 
@ On Board Memory 


@ Ratiometric Capability 
®@ Fast Conversion (.078 ms per channel) 


The analog to digital conversion takes place on a continuous, channel 
sequencing basis. Data is automatically transferred to on board 
memory at the end of each conversion. No A/D converter could be 
easier to use 


Our A/D board comes standard with 0, 10V full scale inputs. These 
inputs can be changed by the user to 0, -10V, or -5V, +5V or other 
ranges as needed. 

The user connector has + 12 and -12 volts on it SO you can power your 
sensors. (These power sources can be turned off with on board dip 
switch). 

Accuracy 0.3% Input Resistance 20K Ohms Typ 
A few applications may include the monitoring of @ flow @ 
temperature @ humidity @ wind speed @ wind direction @ light 
intensity @ pressure © APM @ soil moisture and many more. 


PRICE $129.00 


DIGITAL INPUT/OUTPUT BOARD 


@ Provides 8 buffered outpuls to a standard 16 pin socket for standard 
dip ribbon cable connection. 


@ Power-up reset assures that all outputs are off when your Apple | 
first turned on 


@ Features 8 inputs that can be driven trom TTL logic or any 5 volt 
source 


@ Your inputs can be anything from high speed logic to simple 
switches. 


@ TOTALLY compatible with all CP/M software. 
@ Executes the full 2-80 and 8080 instruction set. 
@Allows you to run your Apple CP/M based programs. 


@ Does EVERYTHING the other Z-80 boards do, plus supports Z80 
Interrupts. 


@ Hardware and software settable switch options. 


@ Anon-card PROM eli inates many |.C.'s for a cooler, less power 
consuming board. 


@ Complete documentation included. (user must furnish software) 


@ Very simple to program, just PEEK at the data. 

@ 4 other outputs are also provided. User 1, reset, interrupt request, 
non-maskable interrupt. 

@ Now on one card, you can have 8 digital outpuls and 8 digital inputs 
each with is own connector. The super input/output board is your 
best choice for any control application. 

PRICE $62.00 


Z-80 CARD 


PRICE $139.00 


Since our inception. Appled Engineering has continually expanded its line of Apple peripherals bringing you easy to-use designs 
We are the innovators nol the imitators Utilizing state-ol the-art technologies Apphed Enqineenng is continually improving its products The above represents our most 
recent development Applied Engineering offers you the highest quality peripherals ai the lowest possible price 

Applied Engineering s products are fully tested wilh complete documentatwon and available lor immediate delivery All products are quatanteed with ao 
warranty 

Send Check or Money Order to 
APPLIED ENGINEERING 
P.O. Box 470301 

Dallas, TX 75247 


See Your Dealer 
or Call (214) 492-2027 
7 Days a Week 
Master Card & Visa Welcome 


Alt Orders Shipped Same Day. 
Texas Residents Add 5% Sales Tax. 


Add $10.00 If Outside U.S.A. 
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035C- Ag BB 1770 LDA #$B8 IDENTIFIER FOR REPEAT LOOP 
035E- 4 1780 PHA SO THIS ISN'T MISTAKEN FOR FOR/NEXT 
1790 s OR GOSUB/RETURN 
0358 - 8 1800 TYA PUT RETURN ADDRESS ON STACK 
0360- 48 1810 PHA 
0361- 8A 1820 TXA 
0362- 48 1830 PHA 
0363- 60 180 ; RTS AND GO BACK 
1860 8 # PROCESS UNTIL COMMAND 
1880 UNTIL 
gat 29 ye UE BE BBE er, eepgagton 
0369- DO 24 1910 BNE POP.IT TRUE,END LOOP 
036B- BA 1920 TSX KEEP LOOPING 
036C- BD 03 01 1930 LDA $103. 
036F- C9 B 1940 CMP IS IT A REPEAT? 
Ore BD Ok 01 19e0 [DA S1ON% GET THE DATA 
Oa ee 85 BB 1970 STA ee: sriters AND TELL APPLESOFT 
0378- BD 05 01 1980 LDA A $10 
037B- 85 B 1990 S. <pTTR 
0370 BD 06 01 2000 PDA $10 
0380- 85 13 2010 STA AS. CasLIN 
5 gee Be 76°! 5050 Loe Flax net 
- + 
0387 E8 2040 INX WE DON'T NEED THE RETURN ADDRESS 
0389- Bk 5080 x5 KILL SUB CALL 
O38A- 4c D2 D7 2070 JMP AS.NEWSTT NEW STATEMENT 
2090 : POP A REPEAT LOOP OFF STACK 
038D- DO 14 2110 POPR BNE SYNERR 
038F- BA 2130 POP.IT TSX EXP TRUE,SO END LOOP 
0390- BD 09 01 2140 LDA $103.x MAKE SURE IT IS A REPEAT 
0393- C9 B 2150 CMP #$B 
0395- DO 09 2160 BNE BADFOR 
a es ne 
0399- 69 07 2190 C #7 PULL 7 THINGS 
039B- AA 2200 TAX 
039C- 9A 2210 T 
039D- ic D2 D7 2220 JMP AS.NEWSTT 


O3A0=- 4C OB DD 2 S10 BADFOR JMP AS.BADFOR 
O3A3- 4C C9 DE 2260 § SYNERR JMP AS.SYNERR 


Advertising in AAL 


Once again, the price per page of advertising in Apple Assembly 
Line is going up. The December issue will run $90 for a full 
page, $50 for a half page. 


Apple Assembly Line is published monthly by S-C SOFTWARE CORPORATION, P.O. Box 
280300, Dallas, Texas 75228. Phone (214) 324-2050. Subscription rate is $15 
per year in the USA, sent Bulk Mail; add $3 for First Class postage in USA, 
Canada, and Mexico; add $13 postage for other countries. Back issues are 
available for $1.50 each (other countries add $1 per back issue for postage). 


All material herein is copyrighted by S-C SOFTWARE CORPORATION, all rights 
reserved. (Apple is a registered trademark of Apple Computer, Inc.) 
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